home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / LT.LSP < prev    next >
Text File  |  1992-03-14  |  748b  |  18 lines
  1. ;Change linetype of multiple objects
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;(DEFUN C:LT(/ A C D)
  6. (GRAPHSCR)
  7. (PROMPT "\nSelect Object to be Changed...")
  8. (SETQ A(SSGET))
  9. (IF A(PROGN
  10. (INITGET 1 "L C H D SD SD1 CE l c h d sd ce")
  11. (SETQ C(GETKWORD "\nSelect...By(L)ayer.(C)ontinuous.(H)idden.(D)ashed.(SD)Small dash.(CE)nter "))
  12. (IF(OR(= C "B")(= C "b"))(SETQ D '"BYLAYER"))
  13. (IF(OR(= C "C")(= C "c"))(SETQ D '"CONTINUOUS"))
  14. (IF(OR(= C "H")(= C "h"))(SETQ D '"HIDDEN"))
  15. (IF(OR(= C "D")(= C "d"))(SETQ D '"DASHED"))
  16. (IF(OR(= C "SD")(= C "sd"))(SETQ D '"SD"))
  17. (IF(OR(= C "CE")(= C "ce"))(SETQ D '"CENTER"))
  18. (COMMAND "CHANGE" A "" "PROP" "LT" D ""))))